home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD018c.dsk / PAL.63124.BIANCO.MAR.83.A.bas < prev    next >
BASIC Source File  |  2003-06-12  |  4KB  |  85 lines
  1. 10  HOME : CLEAR 
  2. 20  VTAB 4
  3. 30  PRINT  TAB( 15)"JEFF BIANCO"
  4. 40  PRINT  TAB( 13)"10 WARSON HILLS"
  5. 50  PRINT  TAB( 11)"ST. LOUIS, MO 63124"
  6. 60  HTAB 5
  7. 70  VTAB 12: PRINT "A) EAMON ADVENTURES"
  8. 80  HTAB 5
  9. 90  VTAB 14: PRINT "B) MODEM BULLETIN BOARDS"
  10. 100  VTAB 16: HTAB 5: PRINT "C) WIZARDRY HINT"
  11. 105  VTAB 18: HTAB 5: PRINT "D) BACK TO SOFTDISK"
  12. 110  VTAB 22: HTAB 5: INPUT "ENTER CHOICE ";A$
  13. 120  IF A$ = "A"  THEN 1000
  14. 130  IF A$ = "B"  THEN 2000
  15. 140  IF A$ = "C"  THEN 3000
  16. 150  IF A$ = "D"  THEN 4000
  17. 160  IF A$ < >"D"  THEN 10
  18. 1000  HOME : CLEAR : PRINT  TAB( 13)"EAMON ADVENTURES"
  19. 1010  FOR I = 1 TO 40: PRINT "*";: NEXT 
  20. 1015  PRINT 
  21. 1020  PRINT : PRINT "I HAVE SEVENTEEN EAMON ADVENTURES THAT,"
  22. 1030  PRINT : PRINT "FOR A MODEST PRICE, I WILL COPY FOR"
  23. 1040  PRINT : PRINT "SOFTDISK SUBSCRIBERS.  IF YOU ARE "
  24. 1050  PRINT : PRINT "INTERESTED PLEASE SEND ME A SASE AND"
  25. 1060  PRINT : PRINT "I WILL SEND YOU MORE INFORMATION."
  26. 1070  PRINT : PRINT "FOR THOSE OF YOU WHO DON'T KNOW, EAMON"
  27. 1080  PRINT : PRINT "ADVENTURES ARE A SERIES OF PUBLIC "
  28. 1090  PRINT : PRINT "DOMAIN TEXT ADVENTURES WHERE YOU CREATE"
  29. 1100  PRINT : PRINT "A CHARACTER AND USE HIM (OR HER) THROUGH"
  30. 1102  PRINT 
  31. 1105  INPUT "PRESS RETURN TO CONTINUE ";B$
  32. 1106  IF B$ = ""  THEN 1107
  33. 1107  HOME : VTAB 3
  34. 1110  PRINT : PRINT "THE WHOLE SERIES OF ADVENTURES.MEANWHILE";
  35. 1120  PRINT : PRINT "YOUR CHARACTERS ABILITIES ADVANCE AS"
  36. 1130  PRINT : PRINT "YOU KILL MONSTERS AND COLLECT GOLD.
  37. 1140  PRINT : PRINT "ONCE YOU GET TIRED OF PLAYING THE "
  38. 1145  IF A$ = "D"  THEN 4000
  39. 1150  PRINT : PRINT "ADVENTURES, YOU CAN USE THE DUNGEON "
  40. 1160  PRINT : PRINT "DESIGNER DISK TO CREATE YOUR OWN."
  41. 1170  PRINT : PRINT "INCLUDED ON THE DUNGEON DESIGNER DISK"
  42. 1180  PRINT : PRINT "IS A COMPLETE MANUAL FOR BOTH PLAYING"
  43. 1190  PRINT : PRINT "AND CREATING ADVENTURES."
  44. 1200  VTAB 24: INPUT "PRESS RETURN FOR MAIN MENU ";C$
  45. 1210  IF C$ = ""  THEN 10
  46. 2000  HOME : PRINT  TAB( 10)"MODEM BULLETIN BOARDS"
  47. 2010  FOR I = 1 TO 40: PRINT "*";: NEXT 
  48. 2020  PRINT "I AM COMPILING A LIST OF MODEM BULLETIN"
  49. 2030  PRINT : PRINT "BOARDS BY GEOGRAPHICAL AREAS.  IF YOU"
  50. 2040  PRINT : PRINT "KNOW OF ANY PLEASE WRITE.  I AM "
  51. 2045  PRINT : PRINT "ESPECIALLY INTERESTED IN ANY IN THE ST."
  52. 2046  PRINT : PRINT "LOUIS (314) OR THE SEATTLE (206) AREAS"
  53. 2047  PRINT : PRINT "ANOTHER THING THAT I WOULD BE INTERESTED";
  54. 2050  PRINT : PRINT "IN DOING IS STARTING MY OWN, SO IF YOU"
  55. 2060  PRINT : PRINT "HAVE ANY EXPERIENCE DOING SO I WOULD "
  56. 2070  PRINT : PRINT "APPRIECIATE SOME HINTS OR TIPS."
  57. 2080  PRINT : PRINT "DOES ANYONE KNOW WHERE I COULD GET THE"
  58. 2090  PRINT "NETWORKS SOFTWARE?"
  59. 2100  GOTO 1200
  60. 3000  HOME : PRINT  TAB( 14)"WIZARDRY HINT"
  61. 3005  FOR I = 1 TO 40: PRINT "*";: NEXT 
  62. 3010  PRINT : PRINT "FOR THOSE OF YOU THAT DON'T HAVE A"
  63. 3020  PRINT : PRINT "PROGRAM LIKE WIZMAKER AND STILL WOULD"
  64. 3040  PRINT : PRINT "LIKE A POWERFUL BISHOP TO IDENTIFY MAGIC";
  65. 3050  PRINT : PRINT "TRY THE FOLLOWING:  CREATE A BISHOP"
  66. 3060  PRINT : PRINT "(DON'T USE ONE YOU LIKE AT FIRST BECAUSE";
  67. 3070  PRINT : PRINT "HE WILL CHANGE).  TAKE THIS BISHOP INTO"
  68. 3080  PRINT : PRINT "THE DUNGEON AND CAMP.  HAVE THE BISHOP"
  69. 3090  PRINT : PRINT "IDENTIFY OBJECT 9 (NINE IS NOT USUALLY"
  70. 3100  PRINT : PRINT "AN OPTION).  AND IF THIS BUG IS NOT JUST";
  71. 3110  PRINT : PRINT "ON MY DISK YOUR BISHOP SHOULD HAVE ABOUT";
  72. 3120  VTAB 24: INPUT "PRESS RETURN TO CONTINUE ";E$
  73. 3130  IF E$ = ""  THEN 3140
  74. 3140  HOME : PRINT 
  75. 3150  PRINT : PRINT "ONE MILLION EXPERIENCE POINTS.  FROM"
  76. 3160  PRINT : PRINT "HERE TAKE HIM INTO THE ADVENTURERS INN"
  77. 3170  PRINT : PRINT "AND KEEP RESTING HIM UNTIL YOU ARE "
  78. 3180  PRINT : PRINT "SATISFIED WITH THE LEVEL THAT HE HAS"
  79. 3190  PRINT : PRINT "ACHIEVED.  THIS CHARACTER CAN HELP YOU"
  80. 3200  PRINT : PRINT "KILL WERDNA OR A WHOLE ARMY OF THESE "
  81. 3210  PRINT : PRINT "CHARACTERS CAN BE USED FOR KNIGHT OF "
  82. 3220  PRINT : PRINT "DIAMONDS."
  83. 3239  PRINT : PRINT : PRINT  TAB( 16)"GOOD LUCK"
  84. 3240  GOTO 1200
  85. 4000  PRINT  CHR$(4);"RUN PAL.MENU"